home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / Sound.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  66.5 KB  |  2,013 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Sound.a
  3. ;
  4. ;    Contains:    Sound Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    Sound Manager 3.3
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1986-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__SOUND__') = 'UNDEFINED' THEN
  19. __SOUND__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__DIALOGS__') = 'UNDEFINED' THEN
  25.     include 'Dialogs.a'
  26.     ENDIF
  27.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  28.     include 'Components.a'
  29.     ENDIF
  30.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  31.     include 'MixedMode.a'
  32.     ENDIF
  33.     IF &TYPE('__MOVIES__') = 'UNDEFINED' THEN
  34.     include 'Movies.a'
  35.     ENDIF
  36.  
  37. ; 
  38. ;                        * * *  N O T E  * * *
  39. ;
  40. ;    This file has been updated to include Sound Manager 3.3 interfaces.
  41. ;
  42. ;    Some of the Sound Manager 3.0 interfaces were not put into the InterfaceLib
  43. ;    that originally shipped with the PowerMacs. These missing functions and the
  44. ;    new 3.3 interfaces have been released in the SoundLib library for PowerPC
  45. ;    developers to link with. The runtime library for these functions are
  46. ;    installed by the Sound Manager. The following functions are found in SoundLib.
  47. ;
  48. ;        GetCompressionInfo(), GetSoundPreference(), SetSoundPreference(),
  49. ;        UnsignedFixedMulDiv(), SndGetInfo(), SndSetInfo(), GetSoundOutputInfo(),
  50. ;        SetSoundOutputInfo(), GetCompressionName(), SoundConverterOpen(),
  51. ;        SoundConverterClose(), SoundConverterGetBufferSizes(), SoundConverterBeginConversion(),
  52. ;        SoundConverterConvertBuffer(), SoundConverterEndConversion(),
  53. ;        AudioGetBass, AudioGetInfo, AudioGetMute, AudioGetOutputDevice,
  54. ;        AudioGetTreble, AudioGetVolume, AudioMuteOnEvent, AudioSetBass,
  55. ;        AudioSetMute, AudioSetToDefaults, AudioSetTreble, AudioSetVolume,
  56. ;        OpenMixerSoundComponent, CloseMixerSoundComponent, SoundComponentAddSource,
  57. ;        SoundComponentGetInfo, SoundComponentGetSource, SoundComponentGetSourceData,
  58. ;        SoundComponentInitOutputDevice, SoundComponentPauseSource,
  59. ;        SoundComponentPlaySourceBuffer, SoundComponentRemoveSource,
  60. ;        SoundComponentSetInfo, SoundComponentSetOutput, SoundComponentSetSource,
  61. ;        SoundComponentStartSource, SoundComponentStopSource
  62. ;        ParseAIFFHeader(), ParseSndHeader()
  63. ;
  64.  
  65. ; 
  66. ;    Interfaces for Sound Driver, !!! OBSOLETE and NOT SUPPORTED !!!
  67. ;
  68. ;    These items are no longer defined, but appear here so that someone
  69. ;    searching the interfaces might find them. If you are using one of these
  70. ;    items, you must change your code to support the Sound Manager.
  71. ;
  72. ;        swMode, ftMode, ffMode
  73. ;        FreeWave, FFSynthRec, Tone, SWSynthRec, Wave, FTSoundRec
  74. ;        SndCompletionProcPtr
  75. ;        StartSound, StopSound, SoundDone
  76. ;
  77.  
  78.  
  79. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  80. ;   constants
  81. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  82.  
  83.  
  84.  
  85. soundListRsrc                    EQU        'snd '                ;Resource type used by Sound Manager
  86. rate48khz                        EQU        $BB800000            ;48000.00000 in fixed-point
  87. rate44khz                        EQU        $AC440000            ;44100.00000 in fixed-point
  88. rate22050hz                        EQU        $56220000            ;22050.00000 in fixed-point
  89. rate22khz                        EQU        $56EE8BA3            ;22254.54545 in fixed-point
  90. rate11khz                        EQU        $2B7745D1            ;11127.27273 in fixed-point
  91. rate11025hz                        EQU        $2B110000            ;11025.00000 in fixed-point
  92.                                                             ;synthesizer numbers for SndNewChannel
  93. squareWaveSynth                    EQU        1                    ;square wave synthesizer
  94. waveTableSynth                    EQU        3                    ;wave table synthesizer
  95. sampledSynth                    EQU        5                    ;sampled sound synthesizer
  96.                                                             ;old Sound Manager MACE synthesizer numbers
  97. MACE3snthID                        EQU        11
  98. MACE6snthID                        EQU        13
  99. kMiddleC                        EQU        60                    ;MIDI note value for middle C
  100. kSimpleBeepID                    EQU        1                    ;reserved resource ID for Simple Beep
  101. kFullVolume                        EQU        $0100                ;1.0, setting for full hardware output volume
  102. kNoVolume                        EQU        0                    ;setting for no sound volume
  103. stdQLength                        EQU        128
  104. dataOffsetFlag                    EQU        $8000
  105. kUseOptionalOutputDevice        EQU        -1                    ;only for Sound Manager 3.0 or later
  106. notCompressed                    EQU        0                    ;compression ID's
  107. fixedCompression                EQU        -1                    ;compression ID for fixed-sized compression
  108. variableCompression                EQU        -2                    ;compression ID for variable-sized compression
  109. twoToOne                        EQU        1
  110. eightToThree                    EQU        2
  111. threeToOne                        EQU        3
  112. sixToOne                        EQU        4
  113. sixToOnePacketSize                EQU        8
  114. threeToOnePacketSize            EQU        16
  115. stateBlockSize                    EQU        64
  116. leftOverBlockSize                EQU        32
  117. firstSoundFormat                EQU        $0001                ;general sound format
  118. secondSoundFormat                EQU        $0002                ;special sampled sound format (HyperCard)
  119. dbBufferReady                    EQU        $00000001            ;double buffer is filled
  120. dbLastBuffer                    EQU        $00000004            ;last double buffer to play
  121. sysBeepDisable                    EQU        $0000                ;SysBeep() enable flags
  122. sysBeepEnable                    EQU        $01
  123. sysBeepSynchronous                EQU        $02                    ;if bit set, make alert sounds synchronous
  124. unitTypeNoSelection                EQU        $FFFF                ;unitTypes for AudioSelection.unitType
  125. unitTypeSeconds                    EQU        $0000
  126.     IF TARGET_CPU_68K THEN
  127.  
  128. ;   PPCAsm thinks “extSH” is a directive and therefore can't be a constant (?)
  129. ;   But the 68k Asm needs to have these constants, so wrap them inside TARGET_CPU_68K
  130.  
  131.  
  132.  
  133. stdSH                            EQU        $00                    ;Standard sound header encode value
  134. extSH                            EQU        $FF                    ;Extended sound header encode value
  135. cmpSH                            EQU        $FE                    ;Compressed sound header encode value
  136.     ENDIF    ; TARGET_CPU_68K
  137. ; command numbers for SndDoCommand and SndDoImmediate
  138.  
  139. nullCmd                            EQU        0
  140. initCmd                            EQU        1
  141. freeCmd                            EQU        2
  142. quietCmd                        EQU        3
  143. flushCmd                        EQU        4
  144. reInitCmd                        EQU        5
  145. waitCmd                            EQU        10
  146. pauseCmd                        EQU        11
  147. resumeCmd                        EQU        12
  148. callBackCmd                        EQU        13
  149. syncCmd                            EQU        14
  150. availableCmd                    EQU        24
  151. versionCmd                        EQU        25
  152. totalLoadCmd                    EQU        26
  153. loadCmd                            EQU        27
  154. freqDurationCmd                    EQU        40
  155. restCmd                            EQU        41
  156. freqCmd                            EQU        42
  157. ampCmd                            EQU        43
  158. timbreCmd                        EQU        44
  159. getAmpCmd                        EQU        45
  160. volumeCmd                        EQU        46                    ;sound manager 3.0 or later only
  161. getVolumeCmd                    EQU        47                    ;sound manager 3.0 or later only
  162. clockComponentCmd                EQU        50                    ;sound manager 3.2.1 or later only
  163. getClockComponentCmd            EQU        51                    ;sound manager 3.2.1 or later only
  164. waveTableCmd                    EQU        60
  165. phaseCmd                        EQU        61
  166. soundCmd                        EQU        80
  167. bufferCmd                        EQU        81
  168. rateCmd                            EQU        82
  169. continueCmd                        EQU        83
  170. doubleBufferCmd                    EQU        84
  171. getRateCmd                        EQU        85
  172. rateMultiplierCmd                EQU        86
  173. getRateMultiplierCmd            EQU        87
  174. sizeCmd                            EQU        90                    ;obsolete command
  175. convertCmd                        EQU        91                    ;obsolete MACE command
  176.     IF OLDROUTINENAMES THEN
  177. ; channel initialization parameters
  178.  
  179. waveInitChannelMask                EQU        $07
  180. waveInitChannel0                EQU        $04                    ;wave table only, Sound Manager 2.0 and earlier
  181. waveInitChannel1                EQU        $05                    ;wave table only, Sound Manager 2.0 and earlier
  182. waveInitChannel2                EQU        $06                    ;wave table only, Sound Manager 2.0 and earlier
  183. waveInitChannel3                EQU        $07                    ;wave table only, Sound Manager 2.0 and earlier
  184. initChan0                        EQU        $04                    ;obsolete spelling
  185. initChan1                        EQU        $05                    ;obsolete spelling
  186. initChan2                        EQU        $06                    ;obsolete spelling
  187. initChan3                        EQU        $07                    ;obsolete spelling
  188.  
  189. outsideCmpSH                    EQU        0                    ;obsolete MACE constant
  190. insideCmpSH                        EQU        1                    ;obsolete MACE constant
  191. aceSuccess                        EQU        0                    ;obsolete MACE constant
  192. aceMemFull                        EQU        1                    ;obsolete MACE constant
  193. aceNilBlock                        EQU        2                    ;obsolete MACE constant
  194. aceBadComp                        EQU        3                    ;obsolete MACE constant
  195. aceBadEncode                    EQU        4                    ;obsolete MACE constant
  196. aceBadDest                        EQU        5                    ;obsolete MACE constant
  197. aceBadCmd                        EQU        6                    ;obsolete MACE constant
  198.     ENDIF    ; OLDROUTINENAMES
  199.  
  200. initChanLeft                    EQU        $0002                ;left stereo channel
  201. initChanRight                    EQU        $0003                ;right stereo channel
  202. initNoInterp                    EQU        $0004                ;no linear interpolation
  203. initNoDrop                        EQU        $0008                ;no drop-sample conversion
  204. initMono                        EQU        $0080                ;monophonic channel
  205. initStereo                        EQU        $00C0                ;stereo channel
  206. initMACE3                        EQU        $0300                ;MACE 3:1
  207. initMACE6                        EQU        $0400                ;MACE 6:1
  208. initPanMask                        EQU        $0003                ;mask for right/left pan values
  209. initSRateMask                    EQU        $0030                ;mask for sample rate values
  210. initStereoMask                    EQU        $00C0                ;mask for mono/stereo values
  211. initCompMask                    EQU        $FF00                ;mask for compression IDs
  212. ; Get&Set Sound Information Selectors
  213.  
  214. siActiveChannels                EQU        'chac'                ;active channels
  215. siActiveLevels                    EQU        'lmac'                ;active meter levels
  216. siAGCOnOff                        EQU        'agc '                ;automatic gain control state
  217. siAsync                            EQU        'asyn'                ;asynchronous capability
  218. siAVDisplayBehavior                EQU        'avdb'
  219. siChannelAvailable                EQU        'chav'                ;number of channels available
  220. siCompressionAvailable            EQU        'cmav'                ;compression types available
  221. siCompressionFactor                EQU        'cmfa'                ;current compression factor
  222. siCompressionHeader                EQU        'cmhd'                ;return compression header
  223. siCompressionNames                EQU        'cnam'                ;compression type names available
  224. siCompressionParams                EQU        'cmpp'                ;compression parameters
  225. siCompressionType                EQU        'comp'                ;current compression type
  226. siContinuous                    EQU        'cont'                ;continous recording
  227. siDeviceBufferInfo                EQU        'dbin'                ;size of interrupt buffer
  228. siDeviceConnected                EQU        'dcon'                ;input device connection status
  229. siDeviceIcon                    EQU        'icon'                ;input device icon
  230. siDeviceName                    EQU        'name'                ;input device name
  231. siHardwareBalance                EQU        'hbal'
  232. siHardwareBalanceSteps            EQU        'hbls'
  233. siHardwareBass                    EQU        'hbas'
  234. siHardwareBassSteps                EQU        'hbst'
  235. siHardwareBusy                    EQU        'hwbs'                ;sound hardware is in use
  236. siHardwareFormat                EQU        'hwfm'                ;get hardware format
  237. siHardwareMute                    EQU        'hmut'                ;mute state of all hardware
  238. siHardwareTreble                EQU        'htrb'
  239. siHardwareTrebleSteps            EQU        'hwts'
  240. siHardwareVolume                EQU        'hvol'                ;volume level of all hardware
  241. siHardwareVolumeSteps            EQU        'hstp'                ;number of volume steps for hardware
  242. siHeadphoneMute                    EQU        'pmut'                ;mute state of headphones
  243. siHeadphoneVolume                EQU        'pvol'                ;volume level of headphones
  244. siHeadphoneVolumeSteps            EQU        'hdst'                ;number of volume steps for headphones
  245. siInputAvailable                EQU        'inav'                ;input sources available
  246. siInputGain                        EQU        'gain'                ;input gain
  247. siInputSource                    EQU        'sour'                ;input source selector
  248. siInputSourceNames                EQU        'snam'                ;input source names
  249. siLevelMeterOnOff                EQU        'lmet'                ;level meter state
  250. siModemGain                        EQU        'mgai'                ;modem input gain
  251. siMonitorAvailable                EQU        'mnav'
  252. siMonitorSource                    EQU        'mons'
  253. siNumberChannels                EQU        'chan'                ;current number of channels
  254. siOptionsDialog                    EQU        'optd'                ;display options dialog
  255. siPlayThruOnOff                    EQU        'plth'                ;playthrough state
  256. siPostMixerSoundComponent        EQU        'psmx'                ;install post-mixer effect
  257. siPreMixerSoundComponent        EQU        'prmx'                ;install pre-mixer effect
  258. siQuality                        EQU        'qual'                ;quality setting
  259. siRateMultiplier                EQU        'rmul'                ;throttle rate setting
  260. siRecordingQuality                EQU        'qual'                ;recording quality
  261. siSampleRate                    EQU        'srat'                ;current sample rate
  262. siSampleRateAvailable            EQU        'srav'                ;sample rates available
  263. siSampleSize                    EQU        'ssiz'                ;current sample size
  264. siSampleSizeAvailable            EQU        'ssav'                ;sample sizes available
  265. siSetupCDAudio                    EQU        'sucd'                ;setup sound hardware for CD audio
  266. siSetupModemAudio                EQU        'sumd'                ;setup sound hardware for modem audio
  267. siSlopeAndIntercept                EQU        'flap'                ;floating point variables for conversion
  268. siSoundClock                    EQU        'sclk'
  269. siSpeakerMute                    EQU        'smut'                ;mute state of all built-in speaker
  270. siSpeakerVolume                    EQU        'svol'                ;volume level of built-in speaker
  271. siSSpCPULoadLimit                EQU        '3dll'
  272. siSSpLocalization                EQU        '3dif'
  273. siSSpSpeakerSetup                EQU        '3dst'
  274. siStereoInputGain                EQU        'sgai'                ;stereo input gain
  275. siSubwooferMute                    EQU        'bmut'                ;mute state of sub-woofer
  276. siTwosComplementOnOff            EQU        'twos'                ;two's complement state
  277. siVolume                        EQU        'volu'                ;volume level of source
  278. siVoxRecordInfo                    EQU        'voxr'                ;VOX record parameters
  279. siVoxStopInfo                    EQU        'voxs'                ;VOX stop parameters
  280. siWideStereo                    EQU        'wide'                ;wide stereo setting
  281.  
  282. siCloseDriver                    EQU        'clos'                ;reserved for internal use only
  283. siInitializeDriver                EQU        'init'                ;reserved for internal use only
  284. siPauseRecording                EQU        'paus'                ;reserved for internal use only
  285. siUserInterruptProc                EQU        'user'                ;reserved for internal use only
  286. ; Sound Component Types and Subtypes
  287.  
  288. kNoSoundComponentType            EQU        '****'
  289. kSoundComponentType                EQU        'sift'                ;component type
  290. kSoundComponentPPCType            EQU        'nift'                ;component type for PowerPC code
  291. kRate8SubType                    EQU        'ratb'                ;8-bit rate converter
  292. kRate16SubType                    EQU        'ratw'                ;16-bit rate converter
  293. kConverterSubType                EQU        'conv'                ;sample format converter
  294. kSndSourceSubType                EQU        'sour'                ;generic source component
  295. kMixerType                        EQU        'mixr'
  296. kMixer8SubType                    EQU        'mixb'                ;8-bit mixer
  297. kMixer16SubType                    EQU        'mixw'                ;16-bit mixer
  298. kSoundOutputDeviceType            EQU        'sdev'                ;sound output component
  299. kClassicSubType                    EQU        'clas'                ;classic hardware, i.e. Mac Plus
  300. kASCSubType                        EQU        'asc '                ;Apple Sound Chip device
  301. kDSPSubType                        EQU        'dsp '                ;DSP device
  302. kAwacsSubType                    EQU        'awac'                ;Another of Will's Audio Chips device
  303. kGCAwacsSubType                    EQU        'awgc'                ;Awacs audio with Grand Central DMA
  304. kSingerSubType                    EQU        'sing'                ;Singer (via Whitney) based sound
  305. kSinger2SubType                    EQU        'sng2'                ;Singer 2 (via Whitney) for Acme
  306. kWhitSubType                    EQU        'whit'                ;Whit sound component for PrimeTime 3
  307. kSoundBlasterSubType            EQU        'sbls'                ;Sound Blaster for CHRP
  308. kSoundCompressor                EQU        'scom'
  309. kSoundDecompressor                EQU        'sdec'
  310. kSoundEffectsType                EQU        'snfx'                ;sound effects type
  311. kSSpLocalizationSubType            EQU        'snd3'
  312. ; Format Types
  313.  
  314. kSoundNotCompressed                EQU        'NONE'                ;sound is not compressed
  315. kOffsetBinary                    EQU        'raw '                ;offset binary
  316. kMACE3Compression                EQU        'MAC3'                ;MACE 3:1
  317. kMACE6Compression                EQU        'MAC6'                ;MACE 6:1
  318. kCDXA4Compression                EQU        'cdx4'                ;CD/XA 4:1
  319. kCDXA2Compression                EQU        'cdx2'                ;CD/XA 2:1
  320. kIMACompression                    EQU        'ima4'                ;IMA 4:1
  321. kULawCompression                EQU        'ulaw'                ;µLaw 2:1
  322. kALawCompression                EQU        'alaw'                ;aLaw 2:1
  323. kLittleEndianFormat                EQU        'sowt'                ;Little-endian
  324. kFloat32Format                    EQU        'fl32'                ;32-bit floating point
  325. kFloat64Format                    EQU        'fl64'                ;64-bit floating point
  326. kTwosComplement                    EQU        'twos'                ;old name for compatibility
  327. ; Features Flags
  328.  
  329. k8BitRawIn                        EQU        $01                    ;data description
  330. k8BitTwosIn                        EQU        $02
  331. k16BitIn                        EQU        $04
  332. kStereoIn                        EQU        $08
  333. k8BitRawOut                        EQU        $0100
  334. k8BitTwosOut                    EQU        $0200
  335. k16BitOut                        EQU        $0400
  336. kStereoOut                        EQU        $0800
  337. kReverse                        EQU        $00010000            ;  function description
  338. kRateConvert                    EQU        $00020000
  339. kCreateSoundSource                EQU        $00040000
  340. kHighQuality                    EQU        $00400000            ;  performance description
  341. kNonRealTime                    EQU        $00800000
  342. ; SoundComponentPlaySourceBuffer action flags
  343.  
  344. kSourcePaused                    EQU        $01
  345. kPassThrough                    EQU        $00010000
  346. kNoSoundComponentChain            EQU        $00020000
  347. ; SoundParamBlock flags, usefull for OpenMixerSoundComponent
  348.  
  349. kNoMixing                        EQU        $01                    ;don't mix source
  350. kNoSampleRateConversion            EQU        $02                    ;don't convert sample rate (i.e. 11 kHz -> 22 kHz)
  351. kNoSampleSizeConversion            EQU        $04                    ;don't convert sample size (i.e. 16 -> 8)
  352. kNoSampleFormatConversion        EQU        $08                    ;don't convert sample format (i.e. 'twos' -> 'raw ')
  353. kNoChannelConversion            EQU        $10                    ;don't convert stereo/mono
  354. kNoDecompression                EQU        $20                    ;don't decompress (i.e. 'MAC3' -> 'raw ')
  355. kNoVolumeConversion                EQU        $40                    ;don't apply volume
  356. kNoRealtimeProcessing            EQU        $80                    ;won't run at interrupt time
  357. kScheduledSource                EQU        $0100                ;source is scheduled
  358. ; SoundParamBlock quality settings
  359.  
  360. kBestQuality                    EQU        $01                    ;use interpolation in rate conversion
  361. ; useful bit masks
  362.  
  363. kInputMask                        EQU        $000000FF            ;masks off input bits
  364. kOutputMask                        EQU        $0000FF00            ;masks off output bits
  365. kOutputShift                    EQU        8                    ;amount output bits are shifted
  366. kActionMask                        EQU        $00FF0000            ;masks off action bits
  367. kSoundComponentBits                EQU        $00FFFFFF
  368. ; siAVDisplayBehavior types
  369.  
  370. kAVDisplayHeadphoneRemove        EQU        0                    ; monitor does not have a headphone attached
  371. kAVDisplayHeadphoneInsert        EQU        1                    ; monitor has a headphone attached
  372. kAVDisplayPlainTalkRemove        EQU        2                    ; monitor either sending no input through CPU input port or unable to tell if input is coming in
  373. kAVDisplayPlainTalkInsert        EQU        3                    ; monitor sending PlainTalk level microphone source input through sound input port
  374. ; Audio Component constants
  375.  
  376.                                                             ;Values for whichChannel parameter
  377. audioAllChannels                EQU        0                    ;All channels (usually interpreted as both left and right)
  378. audioLeftChannel                EQU        1                    ;Left channel
  379. audioRightChannel                EQU        2                    ;Right channel
  380.                                                             ;Values for mute parameter
  381. audioUnmuted                    EQU        0                    ;Device is unmuted
  382. audioMuted                        EQU        1                    ;Device is muted
  383.                                                             ;Capabilities flags definitions
  384. audioDoesMono                    EQU        $00000001            ;Device supports mono output
  385. audioDoesStereo                    EQU        $00000002            ;Device supports stereo output
  386. audioDoesIndependentChannels    EQU        $00000004            ;Device supports independent software control of each channel
  387. ; Sound Input Qualities
  388.  
  389. siCDQuality                        EQU        'cd  '                ;44.1kHz, stereo, 16 bit
  390. siBestQuality                    EQU        'best'                ;22kHz, mono, 8 bit
  391. siBetterQuality                    EQU        'betr'                ;22kHz, mono, MACE 3:1
  392. siGoodQuality                    EQU        'good'                ;22kHz, mono, MACE 6:1
  393.  
  394. siDeviceIsConnected                EQU        1                    ;input device is connected and ready for input
  395. siDeviceNotConnected            EQU        0                    ;input device is not connected
  396. siDontKnowIfConnected            EQU        -1                    ;can't tell if input device is connected
  397. siReadPermission                EQU        0                    ;permission passed to SPBOpenDevice
  398. siWritePermission                EQU        1                    ;permission passed to SPBOpenDevice
  399.  
  400. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  401. ;   typedefs
  402. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  403.  
  404.  
  405.  
  406. SndCommand                RECORD 0
  407. cmd                         ds.w    1                ; offset: $0 (0)
  408. param1                     ds.w    1                ; offset: $2 (2)
  409. param2                     ds.l    1                ; offset: $4 (4)
  410. sizeof                     EQU *                    ; size:   $8 (8)
  411.                         ENDR
  412.  
  413.  
  414. ; typedef SndChannel *                    SndChannelPtr
  415.  
  416. SndChannel                RECORD 0
  417. nextChan                 ds.l    1                ; offset: $0 (0)
  418. firstMod                 ds.l    1                ; offset: $4 (4)        ;  reserved for the Sound Manager 
  419. callBack                 ds.l    1                ; offset: $8 (8)
  420. userInfo                 ds.l    1                ; offset: $C (12)
  421. wait                     ds.l    1                ; offset: $10 (16)        ;  The following is for internal Sound Manager use only.
  422. cmdInProgress             ds        SndCommand        ; offset: $14 (20)
  423. flags                     ds.w    1                ; offset: $1C (28)
  424. qLength                     ds.w    1                ; offset: $1E (30)
  425. qHead                     ds.w    1                ; offset: $20 (32)
  426. qTail                     ds.w    1                ; offset: $22 (34)
  427. queue                     ds.b    128 * SndCommand.sizeof ; offset: $24 (36)
  428. sizeof                     EQU *                    ; size:   $424 (1060)
  429.                         ENDR
  430. ; MACE structures
  431. StateBlock                RECORD 0
  432. stateVar                 ds.w    64                ; offset: $0 (0)
  433. sizeof                     EQU *                    ; size:   $80 (128)
  434.                         ENDR
  435. ; typedef struct StateBlock *            StateBlockPtr
  436.  
  437. LeftOverBlock            RECORD 0
  438. count                     ds.l    1                ; offset: $0 (0)
  439. sampleArea                 ds.b    32                ; offset: $4 (4)
  440. sizeof                     EQU *                    ; size:   $24 (36)
  441.                         ENDR
  442. ; typedef struct LeftOverBlock *        LeftOverBlockPtr
  443.  
  444. ModRef                    RECORD 0
  445. modNumber                 ds.w    1                ; offset: $0 (0)
  446. modInit                     ds.l    1                ; offset: $2 (2)
  447. sizeof                     EQU *                    ; size:   $6 (6)
  448.                         ENDR
  449. SndListResource            RECORD 0
  450. format                     ds.w    1                ; offset: $0 (0)
  451. numModifiers             ds.w    1                ; offset: $2 (2)
  452. modifierPart             ds        ModRef            ; offset: $4 (4) <-- really an array of length one
  453. numCommands                 ds.w    1                ; offset: $A (10)
  454. commandPart                 ds        SndCommand        ; offset: $C (12) <-- really an array of length one
  455. dataPart                 ds.b    1                ; offset: $14 (20) <-- really an array of length one
  456.                          ORG 22
  457. sizeof                     EQU *                    ; size:   $16 (22)
  458.                         ENDR
  459. ; typedef struct SndListResource *        SndListPtr
  460.  
  461. ; typedef SndListPtr *                    SndListHndl
  462.  
  463. ; typedef SndListPtr *                    SndListHandle
  464.  
  465. ; HyperCard sound resource format
  466. Snd2ListResource        RECORD 0
  467. format                     ds.w    1                ; offset: $0 (0)
  468. refCount                 ds.w    1                ; offset: $2 (2)
  469. numCommands                 ds.w    1                ; offset: $4 (4)
  470. commandPart                 ds        SndCommand        ; offset: $6 (6) <-- really an array of length one
  471. dataPart                 ds.b    1                ; offset: $E (14) <-- really an array of length one
  472.                          ORG 16
  473. sizeof                     EQU *                    ; size:   $10 (16)
  474.                         ENDR
  475. ; typedef struct Snd2ListResource *        Snd2ListPtr
  476.  
  477. ; typedef Snd2ListPtr *                    Snd2ListHndl
  478.  
  479. ; typedef Snd2ListPtr *                    Snd2ListHandle
  480.  
  481. SoundHeader                RECORD 0
  482. samplePtr                 ds.l    1                ; offset: $0 (0)        ; if NIL then samples are in sampleArea
  483. length                     ds.l    1                ; offset: $4 (4)        ; length of sound in bytes
  484. sampleRate                 ds.l    1                ; offset: $8 (8)        ; sample rate for this sound
  485. loopStart                 ds.l    1                ; offset: $C (12)        ; start of looping portion
  486. loopEnd                     ds.l    1                ; offset: $10 (16)        ; end of looping portion
  487. encode                     ds.b    1                ; offset: $14 (20)        ; header encoding
  488. baseFrequency             ds.b    1                ; offset: $15 (21)        ; baseFrequency value
  489. sampleArea                 ds.b    1                ; offset: $16 (22) <-- really an array of length one ; space for when samples follow directly
  490.                          ORG 24
  491. sizeof                     EQU *                    ; size:   $18 (24)
  492.                         ENDR
  493. ; typedef struct SoundHeader *            SoundHeaderPtr
  494.  
  495. CmpSoundHeader            RECORD 0
  496. samplePtr                 ds.l    1                ; offset: $0 (0)        ; if nil then samples are in sample area
  497. numChannels                 ds.l    1                ; offset: $4 (4)        ; number of channels i.e. mono = 1
  498. sampleRate                 ds.l    1                ; offset: $8 (8)        ; sample rate in Apples Fixed point representation
  499. loopStart                 ds.l    1                ; offset: $C (12)        ; loopStart of sound before compression
  500. loopEnd                     ds.l    1                ; offset: $10 (16)        ; loopEnd of sound before compression
  501. encode                     ds.b    1                ; offset: $14 (20)        ; data structure used , stdSH, extSH, or cmpSH
  502. baseFrequency             ds.b    1                ; offset: $15 (21)        ; same meaning as regular SoundHeader
  503. numFrames                 ds.l    1                ; offset: $16 (22)        ; length in frames ( packetFrames or sampleFrames )
  504. AIFFSampleRate             ds        extended80        ; offset: $1A (26)        ; IEEE sample rate
  505. markerChunk                 ds.l    1                ; offset: $24 (36)        ; sync track
  506. format                     ds.l    1                ; offset: $28 (40)        ; data format type, was futureUse1
  507. futureUse2                 ds.l    1                ; offset: $2C (44)        ; reserved by Apple
  508. stateVars                 ds.l    1                ; offset: $30 (48)        ; pointer to State Block
  509. leftOverSamples             ds.l    1                ; offset: $34 (52)        ; used to save truncated samples between compression calls
  510. compressionID             ds.w    1                ; offset: $38 (56)        ; 0 means no compression, non zero means compressionID
  511. packetSize                 ds.w    1                ; offset: $3A (58)        ; number of bits in compressed sample packet
  512. snthID                     ds.w    1                ; offset: $3C (60)        ; resource ID of Sound Manager snth that contains NRT C/E
  513. sampleSize                 ds.w    1                ; offset: $3E (62)        ; number of bits in non-compressed sample
  514. sampleArea                 ds.b    1                ; offset: $40 (64) <-- really an array of length one ; space for when samples follow directly
  515.                          ORG 66
  516. sizeof                     EQU *                    ; size:   $42 (66)
  517.                         ENDR
  518. ; typedef struct CmpSoundHeader *        CmpSoundHeaderPtr
  519.  
  520. ExtSoundHeader            RECORD 0
  521. samplePtr                 ds.l    1                ; offset: $0 (0)        ; if nil then samples are in sample area
  522. numChannels                 ds.l    1                ; offset: $4 (4)        ; number of channels,  ie mono = 1
  523. sampleRate                 ds.l    1                ; offset: $8 (8)        ; sample rate in Apples Fixed point representation
  524. loopStart                 ds.l    1                ; offset: $C (12)        ; same meaning as regular SoundHeader
  525. loopEnd                     ds.l    1                ; offset: $10 (16)        ; same meaning as regular SoundHeader
  526. encode                     ds.b    1                ; offset: $14 (20)        ; data structure used , stdSH, extSH, or cmpSH
  527. baseFrequency             ds.b    1                ; offset: $15 (21)        ; same meaning as regular SoundHeader
  528. numFrames                 ds.l    1                ; offset: $16 (22)        ; length in total number of frames
  529. AIFFSampleRate             ds        extended80        ; offset: $1A (26)        ; IEEE sample rate
  530. markerChunk                 ds.l    1                ; offset: $24 (36)        ; sync track
  531. instrumentChunks         ds.l    1                ; offset: $28 (40)        ; AIFF instrument chunks
  532. AESRecording             ds.l    1                ; offset: $2C (44)
  533. sampleSize                 ds.w    1                ; offset: $30 (48)        ; number of bits in sample
  534. futureUse1                 ds.w    1                ; offset: $32 (50)        ; reserved by Apple
  535. futureUse2                 ds.l    1                ; offset: $34 (52)        ; reserved by Apple
  536. futureUse3                 ds.l    1                ; offset: $38 (56)        ; reserved by Apple
  537. futureUse4                 ds.l    1                ; offset: $3C (60)        ; reserved by Apple
  538. sampleArea                 ds.b    1                ; offset: $40 (64) <-- really an array of length one ; space for when samples follow directly
  539.                          ORG 66
  540. sizeof                     EQU *                    ; size:   $42 (66)
  541.                         ENDR
  542. ; typedef struct ExtSoundHeader *        ExtSoundHeaderPtr
  543.  
  544. SoundHeaderUnion        RECORD 0
  545. stdHeader                 ds        SoundHeader        ; offset: $0 (0)
  546.                          ORG 0
  547. cmpHeader                 ds        CmpSoundHeader ; offset: $0 (0)
  548.                          ORG 0
  549. extHeader                 ds        ExtSoundHeader ; offset: $0 (0)
  550. sizeof                     EQU *                    ; size:   $42 (66)
  551.                         ENDR
  552. ConversionBlock            RECORD 0
  553. destination                 ds.w    1                ; offset: $0 (0)
  554. unused                     ds.w    1                ; offset: $2 (2)
  555. inputPtr                 ds.l    1                ; offset: $4 (4)
  556. outputPtr                 ds.l    1                ; offset: $8 (8)
  557. sizeof                     EQU *                    ; size:   $C (12)
  558.                         ENDR
  559. ; typedef struct ConversionBlock *        ConversionBlockPtr
  560.  
  561. SMStatus                RECORD 0
  562. smMaxCPULoad             ds.w    1                ; offset: $0 (0)
  563. smNumChannels             ds.w    1                ; offset: $2 (2)
  564. smCurCPULoad             ds.w    1                ; offset: $4 (4)
  565. sizeof                     EQU *                    ; size:   $6 (6)
  566.                         ENDR
  567. ; typedef struct SMStatus *                SMStatusPtr
  568.  
  569. SCStatus                RECORD 0
  570. scStartTime                 ds.l    1                ; offset: $0 (0)
  571. scEndTime                 ds.l    1                ; offset: $4 (4)
  572. scCurrentTime             ds.l    1                ; offset: $8 (8)
  573. scChannelBusy             ds.b    1                ; offset: $C (12)
  574. scChannelDisposed         ds.b    1                ; offset: $D (13)
  575. scChannelPaused             ds.b    1                ; offset: $E (14)
  576. scUnused                 ds.b    1                ; offset: $F (15)
  577. scChannelAttributes         ds.l    1                ; offset: $10 (16)
  578. scCPULoad                 ds.l    1                ; offset: $14 (20)
  579. sizeof                     EQU *                    ; size:   $18 (24)
  580.                         ENDR
  581. ; typedef struct SCStatus *                SCStatusPtr
  582.  
  583. AudioSelection            RECORD 0
  584. unitType                 ds.l    1                ; offset: $0 (0)
  585. selStart                 ds.l    1                ; offset: $4 (4)
  586. selEnd                     ds.l    1                ; offset: $8 (8)
  587. sizeof                     EQU *                    ; size:   $C (12)
  588.                         ENDR
  589. ; typedef struct AudioSelection *        AudioSelectionPtr
  590.  
  591. SndDoubleBuffer            RECORD 0
  592. dbNumFrames                 ds.l    1                ; offset: $0 (0)
  593. dbFlags                     ds.l    1                ; offset: $4 (4)
  594. dbUserInfo                 ds.l    2                ; offset: $8 (8)
  595. dbSoundData                 ds.b    1                ; offset: $10 (16) <-- really an array of length one
  596.                          ORG 18
  597. sizeof                     EQU *                    ; size:   $12 (18)
  598.                         ENDR
  599. ; typedef struct SndDoubleBuffer *        SndDoubleBufferPtr
  600.  
  601. SndDoubleBufferHeader    RECORD 0
  602. dbhNumChannels             ds.w    1                ; offset: $0 (0)
  603. dbhSampleSize             ds.w    1                ; offset: $2 (2)
  604. dbhCompressionID         ds.w    1                ; offset: $4 (4)
  605. dbhPacketSize             ds.w    1                ; offset: $6 (6)
  606. dbhSampleRate             ds.l    1                ; offset: $8 (8)
  607. dbhBufferPtr             ds.l    2                ; offset: $C (12)
  608. dbhDoubleBack             ds.l    1                ; offset: $14 (20)
  609. sizeof                     EQU *                    ; size:   $18 (24)
  610.                         ENDR
  611. ; typedef struct SndDoubleBufferHeader * SndDoubleBufferHeaderPtr
  612.  
  613. SndDoubleBufferHeader2    RECORD 0
  614. dbhNumChannels             ds.w    1                ; offset: $0 (0)
  615. dbhSampleSize             ds.w    1                ; offset: $2 (2)
  616. dbhCompressionID         ds.w    1                ; offset: $4 (4)
  617. dbhPacketSize             ds.w    1                ; offset: $6 (6)
  618. dbhSampleRate             ds.l    1                ; offset: $8 (8)
  619. dbhBufferPtr             ds.l    2                ; offset: $C (12)
  620. dbhDoubleBack             ds.l    1                ; offset: $14 (20)
  621. dbhFormat                 ds.l    1                ; offset: $18 (24)
  622. sizeof                     EQU *                    ; size:   $1C (28)
  623.                         ENDR
  624. ; typedef struct SndDoubleBufferHeader2 * SndDoubleBufferHeader2Ptr
  625.  
  626. SoundInfoList            RECORD 0
  627. count                     ds.w    1                ; offset: $0 (0)
  628. infoHandle                 ds.l    1                ; offset: $2 (2)
  629. sizeof                     EQU *                    ; size:   $6 (6)
  630.                         ENDR
  631. ; typedef struct SoundInfoList *        SoundInfoListPtr
  632.  
  633. SoundComponentData        RECORD 0
  634. flags                     ds.l    1                ; offset: $0 (0)
  635. format                     ds.l    1                ; offset: $4 (4)
  636. numChannels                 ds.w    1                ; offset: $8 (8)
  637. sampleSize                 ds.w    1                ; offset: $A (10)
  638. sampleRate                 ds.l    1                ; offset: $C (12)
  639. sampleCount                 ds.l    1                ; offset: $10 (16)
  640. buffer                     ds.l    1                ; offset: $14 (20)
  641. reserved                 ds.l    1                ; offset: $18 (24)
  642. sizeof                     EQU *                    ; size:   $1C (28)
  643.                         ENDR
  644. ; typedef struct SoundComponentData *    SoundComponentDataPtr
  645.  
  646.  
  647.  
  648. ; typedef SoundParamBlock *                SoundParamBlockPtr
  649.  
  650. SoundParamBlock            RECORD 0
  651. recordSize                 ds.l    1                ; offset: $0 (0)        ; size of this record in bytes
  652. desc                     ds        SoundComponentData ; offset: $4 (4)        ; description of sound buffer
  653. rateMultiplier             ds.l    1                ; offset: $20 (32)        ; rate multiplier to apply to sound
  654. leftVolume                 ds.w    1                ; offset: $24 (36)        ; volumes to apply to sound
  655. rightVolume                 ds.w    1                ; offset: $26 (38)
  656. quality                     ds.l    1                ; offset: $28 (40)        ; quality to apply to sound
  657. filter                     ds.l    1                ; offset: $2C (44)        ; filter to apply to sound
  658. moreRtn                     ds.l    1                ; offset: $30 (48)        ; routine to call to get more data
  659. completionRtn             ds.l    1                ; offset: $34 (52)        ; routine to call when buffer is complete
  660. refCon                     ds.l    1                ; offset: $38 (56)        ; user refcon
  661. result                     ds.w    1                ; offset: $3C (60)        ; result
  662. sizeof                     EQU *                    ; size:   $3E (62)
  663.                         ENDR
  664. CompressionInfo            RECORD 0
  665. recordSize                 ds.l    1                ; offset: $0 (0)
  666. format                     ds.l    1                ; offset: $4 (4)
  667. compressionID             ds.w    1                ; offset: $8 (8)
  668. samplesPerPacket         ds.w    1                ; offset: $A (10)
  669. bytesPerPacket             ds.w    1                ; offset: $C (12)
  670. bytesPerFrame             ds.w    1                ; offset: $E (14)
  671. bytesPerSample             ds.w    1                ; offset: $10 (16)
  672. futureUse1                 ds.w    1                ; offset: $12 (18)
  673. sizeof                     EQU *                    ; size:   $14 (20)
  674.                         ENDR
  675. ; typedef struct CompressionInfo *        CompressionInfoPtr
  676.  
  677. ; typedef CompressionInfoPtr *            CompressionInfoHandle
  678.  
  679. ; private thing to use as a reference to a Sound Converter
  680.  
  681.  
  682. ; private thing to use as a reference to a Sound Source
  683.  
  684.  
  685. ; typedef SoundSource *                    SoundSourcePtr
  686.  
  687. SoundComponentLink        RECORD 0
  688. description                 ds        ComponentDescription ; offset: $0 (0)    ; Describes the sound component
  689. mixerID                     ds.l    1                ; offset: $14 (20)        ; Reserved by Apple
  690. linkID                     ds.l    1                ; offset: $18 (24)        ; Reserved by Apple
  691. sizeof                     EQU *                    ; size:   $1C (28)
  692.                         ENDR
  693. ; typedef struct SoundComponentLink *    SoundComponentLinkPtr
  694.  
  695. AudioInfo                RECORD 0
  696. capabilitiesFlags         ds.l    1                ; offset: $0 (0)        ; Describes device capabilities
  697. reserved                 ds.l    1                ; offset: $4 (4)        ; Reserved by Apple
  698. numVolumeSteps             ds.w    1                ; offset: $8 (8)        ; Number of significant increments between min and max volume
  699. sizeof                     EQU *                    ; size:   $A (10)
  700.                         ENDR
  701. ; typedef struct AudioInfo *            AudioInfoPtr
  702.  
  703.  
  704.  
  705. ;   These two routines for Get/SetSoundVol should no longer be used.
  706. ;   They were for old Apple Sound Chip machines, and do not support the DSP or PowerMacs.
  707. ;   Use Get/SetDefaultOutputVolume instead, if you must change the user's machine.
  708.  
  709.  
  710.  
  711.     IF OLDROUTINENAMES ** TARGET_CPU_68K THEN
  712. ;
  713. ; pascal void SetSoundVol(short level)
  714. ;
  715.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  716.         IMPORT_CFM_FUNCTION SetSoundVol
  717.     ENDIF
  718.  
  719.  
  720. ;
  721. ; pascal void GetSoundVol(short *level)
  722. ;
  723.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  724.         ; parameters:
  725.         ;    level           => A0
  726.         Macro
  727.         _GetSoundVol
  728.             clr.b               (A0)+
  729.             move.b              $0260,(A0)
  730.         EndM
  731.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  732.         IMPORT_CFM_FUNCTION GetSoundVol
  733.     ENDIF
  734.  
  735.     ENDIF
  736. ;  Sound Input Structures
  737.  
  738.  
  739. ; typedef SPB *                            SPBPtr
  740.  
  741. ; user procedures called by sound input routines
  742. ; Sound Input Parameter Block
  743. SPB                        RECORD 0
  744. inRefNum                 ds.l    1                ; offset: $0 (0)        ; reference number of sound input device
  745. count                     ds.l    1                ; offset: $4 (4)        ; number of bytes to record
  746. milliseconds             ds.l    1                ; offset: $8 (8)        ; number of milliseconds to record
  747. bufferLength             ds.l    1                ; offset: $C (12)        ; length of buffer in bytes
  748. bufferPtr                 ds.l    1                ; offset: $10 (16)        ; buffer to store sound data in
  749. completionRoutine         ds.l    1                ; offset: $14 (20)        ; completion routine
  750. interruptRoutine         ds.l    1                ; offset: $18 (24)        ; interrupt routine
  751. userLong                 ds.l    1                ; offset: $1C (28)        ; user-defined field
  752. error                     ds.w    1                ; offset: $20 (32)        ; error
  753. unused1                     ds.l    1                ; offset: $22 (34)        ; reserved - must be zero
  754. sizeof                     EQU *                    ; size:   $26 (38)
  755.                         ENDR
  756.  
  757. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  758. ;   functions for sound components
  759. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760.  
  761.  
  762. ; Sound Component Dispatch Selectors
  763.  
  764. kSoundComponentInitOutputDeviceSelect EQU 1                    ;these calls cannot be delegated
  765. kSoundComponentSetSourceSelect    EQU        2
  766. kSoundComponentGetSourceSelect    EQU        3
  767. kSoundComponentGetSourceDataSelect EQU    4
  768. kSoundComponentSetOutputSelect    EQU        5
  769. kDelegatedSoundComponentSelectors EQU    $0100                ;first selector that can be delegated up the chain
  770.                                                             ;these calls can be delegated and have own range
  771. kSoundComponentAddSourceSelect    EQU        $0101
  772. kSoundComponentRemoveSourceSelect EQU    $0102
  773. kSoundComponentGetInfoSelect    EQU        $0103
  774. kSoundComponentSetInfoSelect    EQU        $0104
  775. kSoundComponentStartSourceSelect EQU    $0105
  776. kSoundComponentStopSourceSelect    EQU        $0106
  777. kSoundComponentPauseSourceSelect EQU    $0107
  778. kSoundComponentPlaySourceBufferSelect EQU $0108
  779. ; Audio Component selectors
  780.  
  781. kAudioGetVolumeSelect            EQU        0
  782. kAudioSetVolumeSelect            EQU        1
  783. kAudioGetMuteSelect                EQU        2
  784. kAudioSetMuteSelect                EQU        3
  785. kAudioSetToDefaultsSelect        EQU        4
  786. kAudioGetInfoSelect                EQU        5
  787. kAudioGetBassSelect                EQU        6
  788. kAudioSetBassSelect                EQU        7
  789. kAudioGetTrebleSelect            EQU        8
  790. kAudioSetTrebleSelect            EQU        9
  791. kAudioGetOutputDeviceSelect        EQU        10
  792. kAudioMuteOnEventSelect            EQU        129
  793.  
  794. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  795. ;   prototypes
  796. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  797.  
  798.  
  799.  
  800. ;  Sound Manager routines 
  801. ;
  802. ; pascal void SysBeep(short duration)
  803. ;
  804.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  805.         _SysBeep:    OPWORD    $A9C8
  806.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  807.         IMPORT_CFM_FUNCTION SysBeep
  808.     ENDIF
  809.  
  810. ;
  811. ; pascal OSErr SndDoCommand(SndChannelPtr chan, const SndCommand *cmd, Boolean noWait)
  812. ;
  813.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  814.         _SndDoCommand:    OPWORD    $A803
  815.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  816.         IMPORT_CFM_FUNCTION SndDoCommand
  817.     ENDIF
  818.  
  819. ;
  820. ; pascal OSErr SndDoImmediate(SndChannelPtr chan, const SndCommand *cmd)
  821. ;
  822.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  823.         _SndDoImmediate:    OPWORD    $A804
  824.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  825.         IMPORT_CFM_FUNCTION SndDoImmediate
  826.     ENDIF
  827.  
  828. ;
  829. ; pascal OSErr SndNewChannel(SndChannelPtr *chan, short synth, long init, SndCallBackUPP userRoutine)
  830. ;
  831.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  832.         _SndNewChannel:    OPWORD    $A807
  833.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  834.         IMPORT_CFM_FUNCTION SndNewChannel
  835.     ENDIF
  836.  
  837. ;
  838. ; pascal OSErr SndDisposeChannel(SndChannelPtr chan, Boolean quietNow)
  839. ;
  840.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  841.         _SndDisposeChannel:    OPWORD    $A801
  842.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  843.         IMPORT_CFM_FUNCTION SndDisposeChannel
  844.     ENDIF
  845.  
  846. ;
  847. ; pascal OSErr SndPlay(SndChannelPtr chan, SndListHandle sndHandle, Boolean async)
  848. ;
  849.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  850.         _SndPlay:    OPWORD    $A805
  851.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  852.         IMPORT_CFM_FUNCTION SndPlay
  853.     ENDIF
  854.  
  855.     IF OLDROUTINENAMES THEN
  856. ;
  857. ; pascal OSErr SndAddModifier(SndChannelPtr chan, Ptr modifier, short id, long init)
  858. ;
  859.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  860.         _SndAddModifier:    OPWORD    $A802
  861.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  862.         IMPORT_CFM_FUNCTION SndAddModifier
  863.     ENDIF
  864.  
  865.     ENDIF    ; OLDROUTINENAMES
  866. ;
  867. ; pascal OSErr SndControl(short id, SndCommand *cmd)
  868. ;
  869.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  870.         _SndControl:    OPWORD    $A806
  871.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  872.         IMPORT_CFM_FUNCTION SndControl
  873.     ENDIF
  874.  
  875. ;  Sound Manager 2.0 and later, uses _SoundDispatch 
  876. ;
  877. ; pascal NumVersion SndSoundManagerVersion(void )
  878. ;
  879.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  880.         Macro
  881.         _SndSoundManagerVersion
  882.             move.l              #$000C0008,D0
  883.             dc.w                $A800
  884.         EndM
  885.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  886.         IMPORT_CFM_FUNCTION SndSoundManagerVersion
  887.     ENDIF
  888.  
  889. ;
  890. ; pascal OSErr SndStartFilePlay(SndChannelPtr chan, short fRefNum, short resNum, long bufferSize, void *theBuffer, AudioSelectionPtr theSelection, FilePlayCompletionUPP theCompletion, Boolean async)
  891. ;
  892.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  893.         Macro
  894.         _SndStartFilePlay
  895.             move.l              #$0D000008,D0
  896.             dc.w                $A800
  897.         EndM
  898.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  899.         IMPORT_CFM_FUNCTION SndStartFilePlay
  900.     ENDIF
  901.  
  902. ;
  903. ; pascal OSErr SndPauseFilePlay(SndChannelPtr chan)
  904. ;
  905.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  906.         Macro
  907.         _SndPauseFilePlay
  908.             move.l              #$02040008,D0
  909.             dc.w                $A800
  910.         EndM
  911.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  912.         IMPORT_CFM_FUNCTION SndPauseFilePlay
  913.     ENDIF
  914.  
  915. ;
  916. ; pascal OSErr SndStopFilePlay(SndChannelPtr chan, Boolean quietNow)
  917. ;
  918.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  919.         Macro
  920.         _SndStopFilePlay
  921.             move.l              #$03080008,D0
  922.             dc.w                $A800
  923.         EndM
  924.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  925.         IMPORT_CFM_FUNCTION SndStopFilePlay
  926.     ENDIF
  927.  
  928. ;
  929. ; pascal OSErr SndChannelStatus(SndChannelPtr chan, short theLength, SCStatusPtr theStatus)
  930. ;
  931.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  932.         Macro
  933.         _SndChannelStatus
  934.             move.l              #$05100008,D0
  935.             dc.w                $A800
  936.         EndM
  937.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  938.         IMPORT_CFM_FUNCTION SndChannelStatus
  939.     ENDIF
  940.  
  941. ;
  942. ; pascal OSErr SndManagerStatus(short theLength, SMStatusPtr theStatus)
  943. ;
  944.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  945.         Macro
  946.         _SndManagerStatus
  947.             move.l              #$03140008,D0
  948.             dc.w                $A800
  949.         EndM
  950.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  951.         IMPORT_CFM_FUNCTION SndManagerStatus
  952.     ENDIF
  953.  
  954. ;
  955. ; pascal void SndGetSysBeepState(short *sysBeepState)
  956. ;
  957.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  958.         Macro
  959.         _SndGetSysBeepState
  960.             move.l              #$02180008,D0
  961.             dc.w                $A800
  962.         EndM
  963.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  964.         IMPORT_CFM_FUNCTION SndGetSysBeepState
  965.     ENDIF
  966.  
  967. ;
  968. ; pascal OSErr SndSetSysBeepState(short sysBeepState)
  969. ;
  970.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  971.         Macro
  972.         _SndSetSysBeepState
  973.             move.l              #$011C0008,D0
  974.             dc.w                $A800
  975.         EndM
  976.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  977.         IMPORT_CFM_FUNCTION SndSetSysBeepState
  978.     ENDIF
  979.  
  980. ;
  981. ; pascal OSErr SndPlayDoubleBuffer(SndChannelPtr chan, SndDoubleBufferHeaderPtr theParams)
  982. ;
  983.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  984.         Macro
  985.         _SndPlayDoubleBuffer
  986.             move.l              #$04200008,D0
  987.             dc.w                $A800
  988.         EndM
  989.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  990.         IMPORT_CFM_FUNCTION SndPlayDoubleBuffer
  991.     ENDIF
  992.  
  993. ;  MACE compression routines 
  994. ;
  995. ; pascal NumVersion MACEVersion(void )
  996. ;
  997.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  998.         Macro
  999.         _MACEVersion
  1000.             move.l              #$00000010,D0
  1001.             dc.w                $A800
  1002.         EndM
  1003.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1004.         IMPORT_CFM_FUNCTION MACEVersion
  1005.     ENDIF
  1006.  
  1007. ;
  1008. ; pascal void Comp3to1(const void *inBuffer, void *outBuffer, unsigned long cnt, StateBlockPtr inState, StateBlockPtr outState, unsigned long numChannels, unsigned long whichChannel)
  1009. ;
  1010.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1011.         Macro
  1012.         _Comp3to1
  1013.             move.l              #$00040010,D0
  1014.             dc.w                $A800
  1015.         EndM
  1016.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1017.         IMPORT_CFM_FUNCTION Comp3to1
  1018.     ENDIF
  1019.  
  1020. ;
  1021. ; pascal void Exp1to3(const void *inBuffer, void *outBuffer, unsigned long cnt, StateBlockPtr inState, StateBlockPtr outState, unsigned long numChannels, unsigned long whichChannel)
  1022. ;
  1023.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1024.         Macro
  1025.         _Exp1to3
  1026.             move.l              #$00080010,D0
  1027.             dc.w                $A800
  1028.         EndM
  1029.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1030.         IMPORT_CFM_FUNCTION Exp1to3
  1031.     ENDIF
  1032.  
  1033. ;
  1034. ; pascal void Comp6to1(const void *inBuffer, void *outBuffer, unsigned long cnt, StateBlockPtr inState, StateBlockPtr outState, unsigned long numChannels, unsigned long whichChannel)
  1035. ;
  1036.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1037.         Macro
  1038.         _Comp6to1
  1039.             move.l              #$000C0010,D0
  1040.             dc.w                $A800
  1041.         EndM
  1042.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1043.         IMPORT_CFM_FUNCTION Comp6to1
  1044.     ENDIF
  1045.  
  1046. ;
  1047. ; pascal void Exp1to6(const void *inBuffer, void *outBuffer, unsigned long cnt, StateBlockPtr inState, StateBlockPtr outState, unsigned long numChannels, unsigned long whichChannel)
  1048. ;
  1049.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1050.         Macro
  1051.         _Exp1to6
  1052.             move.l              #$00100010,D0
  1053.             dc.w                $A800
  1054.         EndM
  1055.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1056.         IMPORT_CFM_FUNCTION Exp1to6
  1057.     ENDIF
  1058.  
  1059. ;  Sound Manager 3.0 and later calls 
  1060. ;
  1061. ; pascal OSErr GetSysBeepVolume(long *level)
  1062. ;
  1063.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1064.         Macro
  1065.         _GetSysBeepVolume
  1066.             move.l              #$02240018,D0
  1067.             dc.w                $A800
  1068.         EndM
  1069.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1070.         IMPORT_CFM_FUNCTION GetSysBeepVolume
  1071.     ENDIF
  1072.  
  1073. ;
  1074. ; pascal OSErr SetSysBeepVolume(long level)
  1075. ;
  1076.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1077.         Macro
  1078.         _SetSysBeepVolume
  1079.             move.l              #$02280018,D0
  1080.             dc.w                $A800
  1081.         EndM
  1082.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1083.         IMPORT_CFM_FUNCTION SetSysBeepVolume
  1084.     ENDIF
  1085.  
  1086. ;
  1087. ; pascal OSErr GetDefaultOutputVolume(long *level)
  1088. ;
  1089.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1090.         Macro
  1091.         _GetDefaultOutputVolume
  1092.             move.l              #$022C0018,D0
  1093.             dc.w                $A800
  1094.         EndM
  1095.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1096.         IMPORT_CFM_FUNCTION GetDefaultOutputVolume
  1097.     ENDIF
  1098.  
  1099. ;
  1100. ; pascal OSErr SetDefaultOutputVolume(long level)
  1101. ;
  1102.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1103.         Macro
  1104.         _SetDefaultOutputVolume
  1105.             move.l              #$02300018,D0
  1106.             dc.w                $A800
  1107.         EndM
  1108.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1109.         IMPORT_CFM_FUNCTION SetDefaultOutputVolume
  1110.     ENDIF
  1111.  
  1112. ;
  1113. ; pascal OSErr GetSoundHeaderOffset(SndListHandle sndHandle, long *offset)
  1114. ;
  1115.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1116.         Macro
  1117.         _GetSoundHeaderOffset
  1118.             move.l              #$04040018,D0
  1119.             dc.w                $A800
  1120.         EndM
  1121.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1122.         IMPORT_CFM_FUNCTION GetSoundHeaderOffset
  1123.     ENDIF
  1124.  
  1125. ;
  1126. ; pascal UnsignedFixed UnsignedFixedMulDiv(UnsignedFixed value, UnsignedFixed multiplier, UnsignedFixed divisor)
  1127. ;
  1128.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1129.         Macro
  1130.         _UnsignedFixedMulDiv
  1131.             move.l              #$060C0018,D0
  1132.             dc.w                $A800
  1133.         EndM
  1134.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1135.         IMPORT_CFM_FUNCTION UnsignedFixedMulDiv
  1136.     ENDIF
  1137.  
  1138. ;
  1139. ; pascal OSErr GetCompressionInfo(short compressionID, OSType format, short numChannels, short sampleSize, CompressionInfoPtr cp)
  1140. ;
  1141.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1142.         Macro
  1143.         _GetCompressionInfo
  1144.             move.l              #$07100018,D0
  1145.             dc.w                $A800
  1146.         EndM
  1147.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1148.         IMPORT_CFM_FUNCTION GetCompressionInfo
  1149.     ENDIF
  1150.  
  1151. ;
  1152. ; pascal OSErr SetSoundPreference(OSType theType, Str255 name, Handle settings)
  1153. ;
  1154.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1155.         Macro
  1156.         _SetSoundPreference
  1157.             move.l              #$06340018,D0
  1158.             dc.w                $A800
  1159.         EndM
  1160.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1161.         IMPORT_CFM_FUNCTION SetSoundPreference
  1162.     ENDIF
  1163.  
  1164. ;
  1165. ; pascal OSErr GetSoundPreference(OSType theType, Str255 name, Handle settings)
  1166. ;
  1167.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1168.         Macro
  1169.         _GetSoundPreference
  1170.             move.l              #$06380018,D0
  1171.             dc.w                $A800
  1172.         EndM
  1173.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1174.         IMPORT_CFM_FUNCTION GetSoundPreference
  1175.     ENDIF
  1176.  
  1177. ;
  1178. ; pascal OSErr OpenMixerSoundComponent(SoundComponentDataPtr outputDescription, long outputFlags, ComponentInstance *mixerComponent)
  1179. ;
  1180.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1181.         Macro
  1182.         _OpenMixerSoundComponent
  1183.             move.l              #$06140018,D0
  1184.             dc.w                $A800
  1185.         EndM
  1186.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1187.         IMPORT_CFM_FUNCTION OpenMixerSoundComponent
  1188.     ENDIF
  1189.  
  1190. ;
  1191. ; pascal OSErr CloseMixerSoundComponent(ComponentInstance ci)
  1192. ;
  1193.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1194.         Macro
  1195.         _CloseMixerSoundComponent
  1196.             move.l              #$02180018,D0
  1197.             dc.w                $A800
  1198.         EndM
  1199.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1200.         IMPORT_CFM_FUNCTION CloseMixerSoundComponent
  1201.     ENDIF
  1202.  
  1203. ;  Sound Manager 3.1 and later calls 
  1204. ;
  1205. ; pascal OSErr SndGetInfo(SndChannelPtr chan, OSType selector, void *infoPtr)
  1206. ;
  1207.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1208.         Macro
  1209.         _SndGetInfo
  1210.             move.l              #$063C0018,D0
  1211.             dc.w                $A800
  1212.         EndM
  1213.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1214.         IMPORT_CFM_FUNCTION SndGetInfo
  1215.     ENDIF
  1216.  
  1217. ;
  1218. ; pascal OSErr SndSetInfo(SndChannelPtr chan, OSType selector, const void *infoPtr)
  1219. ;
  1220.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1221.         Macro
  1222.         _SndSetInfo
  1223.             move.l              #$06400018,D0
  1224.             dc.w                $A800
  1225.         EndM
  1226.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1227.         IMPORT_CFM_FUNCTION SndSetInfo
  1228.     ENDIF
  1229.  
  1230. ;
  1231. ; pascal OSErr GetSoundOutputInfo(Component outputDevice, OSType selector, void *infoPtr)
  1232. ;
  1233.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1234.         Macro
  1235.         _GetSoundOutputInfo
  1236.             move.l              #$06440018,D0
  1237.             dc.w                $A800
  1238.         EndM
  1239.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1240.         IMPORT_CFM_FUNCTION GetSoundOutputInfo
  1241.     ENDIF
  1242.  
  1243. ;
  1244. ; pascal OSErr SetSoundOutputInfo(Component outputDevice, OSType selector, const void *infoPtr)
  1245. ;
  1246.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1247.         Macro
  1248.         _SetSoundOutputInfo
  1249.             move.l              #$06480018,D0
  1250.             dc.w                $A800
  1251.         EndM
  1252.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1253.         IMPORT_CFM_FUNCTION SetSoundOutputInfo
  1254.     ENDIF
  1255.  
  1256. ;  Sound Manager 3.2 and later calls 
  1257. ;
  1258. ; pascal OSErr GetCompressionName(OSType compressionType, Str255 compressionName)
  1259. ;
  1260.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1261.         Macro
  1262.         _GetCompressionName
  1263.             move.l              #$044C0018,D0
  1264.             dc.w                $A800
  1265.         EndM
  1266.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1267.         IMPORT_CFM_FUNCTION GetCompressionName
  1268.     ENDIF
  1269.  
  1270. ;
  1271. ; pascal OSErr SoundConverterOpen(const SoundComponentData *inputFormat, const SoundComponentData *outputFormat, SoundConverter *sc)
  1272. ;
  1273.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1274.         Macro
  1275.         _SoundConverterOpen
  1276.             move.l              #$06500018,D0
  1277.             dc.w                $A800
  1278.         EndM
  1279.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1280.         IMPORT_CFM_FUNCTION SoundConverterOpen
  1281.     ENDIF
  1282.  
  1283. ;
  1284. ; pascal OSErr SoundConverterClose(SoundConverter sc)
  1285. ;
  1286.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1287.         Macro
  1288.         _SoundConverterClose
  1289.             move.l              #$02540018,D0
  1290.             dc.w                $A800
  1291.         EndM
  1292.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1293.         IMPORT_CFM_FUNCTION SoundConverterClose
  1294.     ENDIF
  1295.  
  1296. ;
  1297. ; pascal OSErr SoundConverterGetBufferSizes(SoundConverter sc, unsigned long inputBytesTarget, unsigned long *inputFrames, unsigned long *inputBytes, unsigned long *outputBytes)
  1298. ;
  1299.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1300.         Macro
  1301.         _SoundConverterGetBufferSizes
  1302.             move.l              #$0A580018,D0
  1303.             dc.w                $A800
  1304.         EndM
  1305.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1306.         IMPORT_CFM_FUNCTION SoundConverterGetBufferSizes
  1307.     ENDIF
  1308.  
  1309. ;
  1310. ; pascal OSErr SoundConverterBeginConversion(SoundConverter sc)
  1311. ;
  1312.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1313.         Macro
  1314.         _SoundConverterBeginConversion
  1315.             move.l              #$025C0018,D0
  1316.             dc.w                $A800
  1317.         EndM
  1318.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1319.         IMPORT_CFM_FUNCTION SoundConverterBeginConversion
  1320.     ENDIF
  1321.  
  1322. ;
  1323. ; pascal OSErr SoundConverterConvertBuffer(SoundConverter sc, const void *inputPtr, unsigned long inputFrames, void *outputPtr, unsigned long *outputFrames, unsigned long *outputBytes)
  1324. ;
  1325.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1326.         Macro
  1327.         _SoundConverterConvertBuffer
  1328.             move.l              #$0C600018,D0
  1329.             dc.w                $A800
  1330.         EndM
  1331.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1332.         IMPORT_CFM_FUNCTION SoundConverterConvertBuffer
  1333.     ENDIF
  1334.  
  1335. ;
  1336. ; pascal OSErr SoundConverterEndConversion(SoundConverter sc, void *outputPtr, unsigned long *outputFrames, unsigned long *outputBytes)
  1337. ;
  1338.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1339.         Macro
  1340.         _SoundConverterEndConversion
  1341.             move.l              #$08640018,D0
  1342.             dc.w                $A800
  1343.         EndM
  1344.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1345.         IMPORT_CFM_FUNCTION SoundConverterEndConversion
  1346.     ENDIF
  1347.  
  1348.  
  1349. ;  Sound Component Functions
  1350. ;   basic sound component functions
  1351.  
  1352.  
  1353. ;
  1354. ; pascal ComponentResult SoundComponentInitOutputDevice(ComponentInstance ti, long actions)
  1355. ;
  1356.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1357.         Macro
  1358.         _SoundComponentInitOutputDevice
  1359.             move.l              #$00040001,-(sp)
  1360.             moveq               #0,D0
  1361.             dc.w                $A82A
  1362.         EndM
  1363.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1364.         IMPORT_CFM_FUNCTION SoundComponentInitOutputDevice
  1365.     ENDIF
  1366.  
  1367. ;
  1368. ; pascal ComponentResult SoundComponentSetSource(ComponentInstance ti, SoundSource sourceID, ComponentInstance source)
  1369. ;
  1370.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1371.         Macro
  1372.         _SoundComponentSetSource
  1373.             move.l              #$00080002,-(sp)
  1374.             moveq               #0,D0
  1375.             dc.w                $A82A
  1376.         EndM
  1377.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1378.         IMPORT_CFM_FUNCTION SoundComponentSetSource
  1379.     ENDIF
  1380.  
  1381. ;
  1382. ; pascal ComponentResult SoundComponentGetSource(ComponentInstance ti, SoundSource sourceID, ComponentInstance *source)
  1383. ;
  1384.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1385.         Macro
  1386.         _SoundComponentGetSource
  1387.             move.l              #$00080003,-(sp)
  1388.             moveq               #0,D0
  1389.             dc.w                $A82A
  1390.         EndM
  1391.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1392.         IMPORT_CFM_FUNCTION SoundComponentGetSource
  1393.     ENDIF
  1394.  
  1395. ;
  1396. ; pascal ComponentResult SoundComponentGetSourceData(ComponentInstance ti, SoundComponentDataPtr *sourceData)
  1397. ;
  1398.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1399.         Macro
  1400.         _SoundComponentGetSourceData
  1401.             move.l              #$00040004,-(sp)
  1402.             moveq               #0,D0
  1403.             dc.w                $A82A
  1404.         EndM
  1405.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1406.         IMPORT_CFM_FUNCTION SoundComponentGetSourceData
  1407.     ENDIF
  1408.  
  1409. ;
  1410. ; pascal ComponentResult SoundComponentSetOutput(ComponentInstance ti, SoundComponentDataPtr requested, SoundComponentDataPtr *actual)
  1411. ;
  1412.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1413.         Macro
  1414.         _SoundComponentSetOutput
  1415.             move.l              #$00080005,-(sp)
  1416.             moveq               #0,D0
  1417.             dc.w                $A82A
  1418.         EndM
  1419.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1420.         IMPORT_CFM_FUNCTION SoundComponentSetOutput
  1421.     ENDIF
  1422.  
  1423. ;  junction methods for the mixer, must be called at non-interrupt level
  1424. ;
  1425. ; pascal ComponentResult SoundComponentAddSource(ComponentInstance ti, SoundSource *sourceID)
  1426. ;
  1427.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1428.         Macro
  1429.         _SoundComponentAddSource
  1430.             move.l              #$00040101,-(sp)
  1431.             moveq               #0,D0
  1432.             dc.w                $A82A
  1433.         EndM
  1434.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1435.         IMPORT_CFM_FUNCTION SoundComponentAddSource
  1436.     ENDIF
  1437.  
  1438. ;
  1439. ; pascal ComponentResult SoundComponentRemoveSource(ComponentInstance ti, SoundSource sourceID)
  1440. ;
  1441.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1442.         Macro
  1443.         _SoundComponentRemoveSource
  1444.             move.l              #$00040102,-(sp)
  1445.             moveq               #0,D0
  1446.             dc.w                $A82A
  1447.         EndM
  1448.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1449.         IMPORT_CFM_FUNCTION SoundComponentRemoveSource
  1450.     ENDIF
  1451.  
  1452. ;  info methods
  1453. ;
  1454. ; pascal ComponentResult SoundComponentGetInfo(ComponentInstance ti, SoundSource sourceID, OSType selector, void *infoPtr)
  1455. ;
  1456.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1457.         Macro
  1458.         _SoundComponentGetInfo
  1459.             move.l              #$000C0103,-(sp)
  1460.             moveq               #0,D0
  1461.             dc.w                $A82A
  1462.         EndM
  1463.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1464.         IMPORT_CFM_FUNCTION SoundComponentGetInfo
  1465.     ENDIF
  1466.  
  1467. ;
  1468. ; pascal ComponentResult SoundComponentSetInfo(ComponentInstance ti, SoundSource sourceID, OSType selector, void *infoPtr)
  1469. ;
  1470.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1471.         Macro
  1472.         _SoundComponentSetInfo
  1473.             move.l              #$000C0104,-(sp)
  1474.             moveq               #0,D0
  1475.             dc.w                $A82A
  1476.         EndM
  1477.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1478.         IMPORT_CFM_FUNCTION SoundComponentSetInfo
  1479.     ENDIF
  1480.  
  1481. ;  control methods
  1482. ;
  1483. ; pascal ComponentResult SoundComponentStartSource(ComponentInstance ti, short count, SoundSource *sources)
  1484. ;
  1485.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1486.         Macro
  1487.         _SoundComponentStartSource
  1488.             move.l              #$00060105,-(sp)
  1489.             moveq               #0,D0
  1490.             dc.w                $A82A
  1491.         EndM
  1492.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1493.         IMPORT_CFM_FUNCTION SoundComponentStartSource
  1494.     ENDIF
  1495.  
  1496. ;
  1497. ; pascal ComponentResult SoundComponentStopSource(ComponentInstance ti, short count, SoundSource *sources)
  1498. ;
  1499.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1500.         Macro
  1501.         _SoundComponentStopSource
  1502.             move.l              #$00060106,-(sp)
  1503.             moveq               #0,D0
  1504.             dc.w                $A82A
  1505.         EndM
  1506.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1507.         IMPORT_CFM_FUNCTION SoundComponentStopSource
  1508.     ENDIF
  1509.  
  1510. ;
  1511. ; pascal ComponentResult SoundComponentPauseSource(ComponentInstance ti, short count, SoundSource *sources)
  1512. ;
  1513.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1514.         Macro
  1515.         _SoundComponentPauseSource
  1516.             move.l              #$00060107,-(sp)
  1517.             moveq               #0,D0
  1518.             dc.w                $A82A
  1519.         EndM
  1520.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1521.         IMPORT_CFM_FUNCTION SoundComponentPauseSource
  1522.     ENDIF
  1523.  
  1524. ;
  1525. ; pascal ComponentResult SoundComponentPlaySourceBuffer(ComponentInstance ti, SoundSource sourceID, SoundParamBlockPtr pb, long actions)
  1526. ;
  1527.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1528.         Macro
  1529.         _SoundComponentPlaySourceBuffer
  1530.             move.l              #$000C0108,-(sp)
  1531.             moveq               #0,D0
  1532.             dc.w                $A82A
  1533.         EndM
  1534.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1535.         IMPORT_CFM_FUNCTION SoundComponentPlaySourceBuffer
  1536.     ENDIF
  1537.  
  1538. ; Audio Components
  1539. ; Volume is described as a value between 0 and 1, with 0 indicating minimum
  1540. ;  volume and 1 indicating maximum volume; if the device doesn't support
  1541. ;  software control of volume, then a value of unimpErr is returned, indicating
  1542. ;  that these functions are not supported by the device
  1543.  
  1544. ;
  1545. ; pascal ComponentResult AudioGetVolume(ComponentInstance ac, short whichChannel, ShortFixed *volume)
  1546. ;
  1547.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1548.         Macro
  1549.         _AudioGetVolume
  1550.             move.l              #$00060000,-(sp)
  1551.             moveq               #0,D0
  1552.             dc.w                $A82A
  1553.         EndM
  1554.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1555.         IMPORT_CFM_FUNCTION AudioGetVolume
  1556.     ENDIF
  1557.  
  1558. ;
  1559. ; pascal ComponentResult AudioSetVolume(ComponentInstance ac, short whichChannel, ShortFixed volume)
  1560. ;
  1561.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1562.         Macro
  1563.         _AudioSetVolume
  1564.             move.l              #$00040001,-(sp)
  1565.             moveq               #0,D0
  1566.             dc.w                $A82A
  1567.         EndM
  1568.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1569.         IMPORT_CFM_FUNCTION AudioSetVolume
  1570.     ENDIF
  1571.  
  1572. ; If the device doesn't support software control of mute, then a value of unimpErr is
  1573. ;returned, indicating that these functions are not supported by the device.
  1574. ;
  1575. ; pascal ComponentResult AudioGetMute(ComponentInstance ac, short whichChannel, short *mute)
  1576. ;
  1577.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1578.         Macro
  1579.         _AudioGetMute
  1580.             move.l              #$00060002,-(sp)
  1581.             moveq               #0,D0
  1582.             dc.w                $A82A
  1583.         EndM
  1584.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1585.         IMPORT_CFM_FUNCTION AudioGetMute
  1586.     ENDIF
  1587.  
  1588. ;
  1589. ; pascal ComponentResult AudioSetMute(ComponentInstance ac, short whichChannel, short mute)
  1590. ;
  1591.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1592.         Macro
  1593.         _AudioSetMute
  1594.             move.l              #$00040003,-(sp)
  1595.             moveq               #0,D0
  1596.             dc.w                $A82A
  1597.         EndM
  1598.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1599.         IMPORT_CFM_FUNCTION AudioSetMute
  1600.     ENDIF
  1601.  
  1602. ; AudioSetToDefaults causes the associated device to reset its volume and mute values
  1603. ;(and perhaps other characteristics, e.g. attenuation) to "factory default" settings
  1604. ;
  1605. ; pascal ComponentResult AudioSetToDefaults(ComponentInstance ac)
  1606. ;
  1607.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1608.         Macro
  1609.         _AudioSetToDefaults
  1610.             move.l              #$00000004,-(sp)
  1611.             moveq               #0,D0
  1612.             dc.w                $A82A
  1613.         EndM
  1614.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1615.         IMPORT_CFM_FUNCTION AudioSetToDefaults
  1616.     ENDIF
  1617.  
  1618. ; This routine is required; it must be implemented by all audio components
  1619.  
  1620. ;
  1621. ; pascal ComponentResult AudioGetInfo(ComponentInstance ac, AudioInfoPtr info)
  1622. ;
  1623.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1624.         Macro
  1625.         _AudioGetInfo
  1626.             move.l              #$00040005,-(sp)
  1627.             moveq               #0,D0
  1628.             dc.w                $A82A
  1629.         EndM
  1630.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1631.         IMPORT_CFM_FUNCTION AudioGetInfo
  1632.     ENDIF
  1633.  
  1634. ;
  1635. ; pascal ComponentResult AudioGetBass(ComponentInstance ac, short whichChannel, short *bass)
  1636. ;
  1637.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1638.         Macro
  1639.         _AudioGetBass
  1640.             move.l              #$00060006,-(sp)
  1641.             moveq               #0,D0
  1642.             dc.w                $A82A
  1643.         EndM
  1644.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1645.         IMPORT_CFM_FUNCTION AudioGetBass
  1646.     ENDIF
  1647.  
  1648. ;
  1649. ; pascal ComponentResult AudioSetBass(ComponentInstance ac, short whichChannel, short bass)
  1650. ;
  1651.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1652.         Macro
  1653.         _AudioSetBass
  1654.             move.l              #$00040007,-(sp)
  1655.             moveq               #0,D0
  1656.             dc.w                $A82A
  1657.         EndM
  1658.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1659.         IMPORT_CFM_FUNCTION AudioSetBass
  1660.     ENDIF
  1661.  
  1662. ;
  1663. ; pascal ComponentResult AudioGetTreble(ComponentInstance ac, short whichChannel, short *Treble)
  1664. ;
  1665.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1666.         Macro
  1667.         _AudioGetTreble
  1668.             move.l              #$00060008,-(sp)
  1669.             moveq               #0,D0
  1670.             dc.w                $A82A
  1671.         EndM
  1672.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1673.         IMPORT_CFM_FUNCTION AudioGetTreble
  1674.     ENDIF
  1675.  
  1676. ;
  1677. ; pascal ComponentResult AudioSetTreble(ComponentInstance ac, short whichChannel, short Treble)
  1678. ;
  1679.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1680.         Macro
  1681.         _AudioSetTreble
  1682.             move.l              #$00040009,-(sp)
  1683.             moveq               #0,D0
  1684.             dc.w                $A82A
  1685.         EndM
  1686.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1687.         IMPORT_CFM_FUNCTION AudioSetTreble
  1688.     ENDIF
  1689.  
  1690. ;
  1691. ; pascal ComponentResult AudioGetOutputDevice(ComponentInstance ac, Component *outputDevice)
  1692. ;
  1693.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1694.         Macro
  1695.         _AudioGetOutputDevice
  1696.             move.l              #$0004000A,-(sp)
  1697.             moveq               #0,D0
  1698.             dc.w                $A82A
  1699.         EndM
  1700.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1701.         IMPORT_CFM_FUNCTION AudioGetOutputDevice
  1702.     ENDIF
  1703.  
  1704.  
  1705.  
  1706. ; This is routine is private to the AudioVision component.  It enables the watching of the mute key.
  1707. ;
  1708. ; pascal ComponentResult AudioMuteOnEvent(ComponentInstance ac, short muteOnEvent)
  1709. ;
  1710.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1711.         Macro
  1712.         _AudioMuteOnEvent
  1713.             move.l              #$00020081,-(sp)
  1714.             moveq               #0,D0
  1715.             dc.w                $A82A
  1716.         EndM
  1717.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1718.         IMPORT_CFM_FUNCTION AudioMuteOnEvent
  1719.     ENDIF
  1720.  
  1721. ;  Sound Input Manager routines 
  1722. ;
  1723. ; pascal NumVersion SPBVersion(void )
  1724. ;
  1725.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1726.         Macro
  1727.         _SPBVersion
  1728.             move.l              #$00000014,D0
  1729.             dc.w                $A800
  1730.         EndM
  1731.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1732.         IMPORT_CFM_FUNCTION SPBVersion
  1733.     ENDIF
  1734.  
  1735. ;
  1736. ; pascal OSErr SndRecord(ModalFilterUPP filterProc, Point corner, OSType quality, SndListHandle *sndHandle)
  1737. ;
  1738.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1739.         Macro
  1740.         _SndRecord
  1741.             move.l              #$08040014,D0
  1742.             dc.w                $A800
  1743.         EndM
  1744.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1745.         IMPORT_CFM_FUNCTION SndRecord
  1746.     ENDIF
  1747.  
  1748. ;
  1749. ; pascal OSErr SndRecordToFile(ModalFilterUPP filterProc, Point corner, OSType quality, short fRefNum)
  1750. ;
  1751.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1752.         Macro
  1753.         _SndRecordToFile
  1754.             move.l              #$07080014,D0
  1755.             dc.w                $A800
  1756.         EndM
  1757.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1758.         IMPORT_CFM_FUNCTION SndRecordToFile
  1759.     ENDIF
  1760.  
  1761. ;
  1762. ; pascal OSErr SPBSignInDevice(short deviceRefNum, ConstStr255Param deviceName)
  1763. ;
  1764.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1765.         Macro
  1766.         _SPBSignInDevice
  1767.             move.l              #$030C0014,D0
  1768.             dc.w                $A800
  1769.         EndM
  1770.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1771.         IMPORT_CFM_FUNCTION SPBSignInDevice
  1772.     ENDIF
  1773.  
  1774. ;
  1775. ; pascal OSErr SPBSignOutDevice(short deviceRefNum)
  1776. ;
  1777.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1778.         Macro
  1779.         _SPBSignOutDevice
  1780.             move.l              #$01100014,D0
  1781.             dc.w                $A800
  1782.         EndM
  1783.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1784.         IMPORT_CFM_FUNCTION SPBSignOutDevice
  1785.     ENDIF
  1786.  
  1787. ;
  1788. ; pascal OSErr SPBGetIndexedDevice(short count, Str255 deviceName, Handle *deviceIconHandle)
  1789. ;
  1790.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1791.         Macro
  1792.         _SPBGetIndexedDevice
  1793.             move.l              #$05140014,D0
  1794.             dc.w                $A800
  1795.         EndM
  1796.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1797.         IMPORT_CFM_FUNCTION SPBGetIndexedDevice
  1798.     ENDIF
  1799.  
  1800. ;
  1801. ; pascal OSErr SPBOpenDevice(ConstStr255Param deviceName, short permission, long *inRefNum)
  1802. ;
  1803.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1804.         Macro
  1805.         _SPBOpenDevice
  1806.             move.l              #$05180014,D0
  1807.             dc.w                $A800
  1808.         EndM
  1809.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1810.         IMPORT_CFM_FUNCTION SPBOpenDevice
  1811.     ENDIF
  1812.  
  1813. ;
  1814. ; pascal OSErr SPBCloseDevice(long inRefNum)
  1815. ;
  1816.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1817.         Macro
  1818.         _SPBCloseDevice
  1819.             move.l              #$021C0014,D0
  1820.             dc.w                $A800
  1821.         EndM
  1822.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1823.         IMPORT_CFM_FUNCTION SPBCloseDevice
  1824.     ENDIF
  1825.  
  1826. ;
  1827. ; pascal OSErr SPBRecord(SPBPtr inParamPtr, Boolean asynchFlag)
  1828. ;
  1829.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1830.         Macro
  1831.         _SPBRecord
  1832.             move.l              #$03200014,D0
  1833.             dc.w                $A800
  1834.         EndM
  1835.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1836.         IMPORT_CFM_FUNCTION SPBRecord
  1837.     ENDIF
  1838.  
  1839. ;
  1840. ; pascal OSErr SPBRecordToFile(short fRefNum, SPBPtr inParamPtr, Boolean asynchFlag)
  1841. ;
  1842.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1843.         Macro
  1844.         _SPBRecordToFile
  1845.             move.l              #$04240014,D0
  1846.             dc.w                $A800
  1847.         EndM
  1848.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1849.         IMPORT_CFM_FUNCTION SPBRecordToFile
  1850.     ENDIF
  1851.  
  1852. ;
  1853. ; pascal OSErr SPBPauseRecording(long inRefNum)
  1854. ;
  1855.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1856.         Macro
  1857.         _SPBPauseRecording
  1858.             move.l              #$02280014,D0
  1859.             dc.w                $A800
  1860.         EndM
  1861.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1862.         IMPORT_CFM_FUNCTION SPBPauseRecording
  1863.     ENDIF
  1864.  
  1865. ;
  1866. ; pascal OSErr SPBResumeRecording(long inRefNum)
  1867. ;
  1868.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1869.         Macro
  1870.         _SPBResumeRecording
  1871.             move.l              #$022C0014,D0
  1872.             dc.w                $A800
  1873.         EndM
  1874.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1875.         IMPORT_CFM_FUNCTION SPBResumeRecording
  1876.     ENDIF
  1877.  
  1878. ;
  1879. ; pascal OSErr SPBStopRecording(long inRefNum)
  1880. ;
  1881.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1882.         Macro
  1883.         _SPBStopRecording
  1884.             move.l              #$02300014,D0
  1885.             dc.w                $A800
  1886.         EndM
  1887.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1888.         IMPORT_CFM_FUNCTION SPBStopRecording
  1889.     ENDIF
  1890.  
  1891. ;
  1892. ; pascal OSErr SPBGetRecordingStatus(long inRefNum, short *recordingStatus, short *meterLevel, unsigned long *totalSamplesToRecord, unsigned long *numberOfSamplesRecorded, unsigned long *totalMsecsToRecord, unsigned long *numberOfMsecsRecorded)
  1893. ;
  1894.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1895.         Macro
  1896.         _SPBGetRecordingStatus
  1897.             move.l              #$0E340014,D0
  1898.             dc.w                $A800
  1899.         EndM
  1900.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1901.         IMPORT_CFM_FUNCTION SPBGetRecordingStatus
  1902.     ENDIF
  1903.  
  1904. ;
  1905. ; pascal OSErr SPBGetDeviceInfo(long inRefNum, OSType infoType, void *infoData)
  1906. ;
  1907.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1908.         Macro
  1909.         _SPBGetDeviceInfo
  1910.             move.l              #$06380014,D0
  1911.             dc.w                $A800
  1912.         EndM
  1913.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1914.         IMPORT_CFM_FUNCTION SPBGetDeviceInfo
  1915.     ENDIF
  1916.  
  1917. ;
  1918. ; pascal OSErr SPBSetDeviceInfo(long inRefNum, OSType infoType, void *infoData)
  1919. ;
  1920.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1921.         Macro
  1922.         _SPBSetDeviceInfo
  1923.             move.l              #$063C0014,D0
  1924.             dc.w                $A800
  1925.         EndM
  1926.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1927.         IMPORT_CFM_FUNCTION SPBSetDeviceInfo
  1928.     ENDIF
  1929.  
  1930. ;
  1931. ; pascal OSErr SPBMillisecondsToBytes(long inRefNum, long *milliseconds)
  1932. ;
  1933.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1934.         Macro
  1935.         _SPBMillisecondsToBytes
  1936.             move.l              #$04400014,D0
  1937.             dc.w                $A800
  1938.         EndM
  1939.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1940.         IMPORT_CFM_FUNCTION SPBMillisecondsToBytes
  1941.     ENDIF
  1942.  
  1943. ;
  1944. ; pascal OSErr SPBBytesToMilliseconds(long inRefNum, long *byteCount)
  1945. ;
  1946.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1947.         Macro
  1948.         _SPBBytesToMilliseconds
  1949.             move.l              #$04440014,D0
  1950.             dc.w                $A800
  1951.         EndM
  1952.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1953.         IMPORT_CFM_FUNCTION SPBBytesToMilliseconds
  1954.     ENDIF
  1955.  
  1956. ;
  1957. ; pascal OSErr SetupSndHeader(SndListHandle sndHandle, short numChannels, UnsignedFixed sampleRate, short sampleSize, OSType compressionType, short baseNote, unsigned long numBytes, short *headerLen)
  1958. ;
  1959.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1960.         Macro
  1961.         _SetupSndHeader
  1962.             move.l              #$0D480014,D0
  1963.             dc.w                $A800
  1964.         EndM
  1965.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1966.         IMPORT_CFM_FUNCTION SetupSndHeader
  1967.     ENDIF
  1968.  
  1969. ;
  1970. ; pascal OSErr SetupAIFFHeader(short fRefNum, short numChannels, UnsignedFixed sampleRate, short sampleSize, OSType compressionType, unsigned long numBytes, unsigned long numFrames)
  1971. ;
  1972.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1973.         Macro
  1974.         _SetupAIFFHeader
  1975.             move.l              #$0B4C0014,D0
  1976.             dc.w                $A800
  1977.         EndM
  1978.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1979.         IMPORT_CFM_FUNCTION SetupAIFFHeader
  1980.     ENDIF
  1981.  
  1982. ;  Sound Input Manager 1.1 and later calls 
  1983. ;
  1984. ; pascal OSErr ParseAIFFHeader(short fRefNum, SoundComponentData *sndInfo, unsigned long *numFrames, unsigned long *dataOffset)
  1985. ;
  1986.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1987.         Macro
  1988.         _ParseAIFFHeader
  1989.             move.l              #$07580014,D0
  1990.             dc.w                $A800
  1991.         EndM
  1992.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1993.         IMPORT_CFM_FUNCTION ParseAIFFHeader
  1994.     ENDIF
  1995.  
  1996. ;
  1997. ; pascal OSErr ParseSndHeader(SndListHandle sndHandle, SoundComponentData *sndInfo, unsigned long *numFrames, unsigned long *dataOffset)
  1998. ;
  1999.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2000.         Macro
  2001.         _ParseSndHeader
  2002.             move.l              #$085C0014,D0
  2003.             dc.w                $A800
  2004.         EndM
  2005.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2006.         IMPORT_CFM_FUNCTION ParseSndHeader
  2007.     ENDIF
  2008.  
  2009.  
  2010.  
  2011.     ENDIF ; __SOUND__ 
  2012.  
  2013.